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The October edition of the news bulletin begins with 
some very exciting news.... 

The complete PET business system will be unveiled at 
the 1978 Canadian Computer Show. On display will be the PET 
with a new "typewriter style" keyboard, a floppy disk, and a 
printer. 

The Computer Show will be held' in Toronto at the 
International Centre, 6900 Airport Road. The times and dates 
are: 



November 28 
November 29 
November 30 

Snowless Yersion of Life: 



12:00 to 6:00 P.M. 
12:00 to 9=00 P.M. 
12:00 to 6:00 P.M. 



The "Life" program listed in Transactor #5 can be further 
refined to eliminate the snowy effect on the screen. 
Mark Taylor, in the U.K. , has written to us with a snowless 
version of Life. He also included another interesting program 
illustrated in example 2: 



1. If you are plagued by snow on the screen during POKE operations to 
the screen RAM or with machine code programmes, then if in BASIC 
location 59409 is POKEd with 52 then that will inhibit the character 
generator. Any transfer operations can then be carried out with the 
screen totally blank. To restore normal operation the above location 
should be POKEd with 60. For machine code programmes then LDA 52 & 
STA ABSOLUTE the above location will be somewhat faster. 



The attached listing is a snowless version of "Life". 



108 REAR 

ilB READA$:C=LEN(A$> : IFAf ="*"THENEND 

128 IFCC10RO2THEN2B8 

138 A=ASC<A*> -48 : B=ASC i R 1 6HT* <A $ , 1> ) -43 

140 «=B*-?*<B31)-<C=2>»(i6*<ft+?*(A>9)>> 

158 IFNC0ORrO255THEN209 

168 POKEL,N.L=LH: GOTO 118 

280 PRINT"BYTE , 'L ,, =C ,, fi.i"] ???" .END 

380 DATA6400 

310 BArA20,38,19,26,3A,i9,20,E6,i9,2B,03»iA, 



320 DATA2B,78 
330 DATA EA,EA 
340 BATA80,88 
350 DATAEA,EA 
368 DATAEA,EA 
370 DATA BD,13 
380 BATAB4..A9 
390 DATA39,A5 
480 DATA33,F8 
410 DATA 68, A3 
428 BATAB4,A3 
438 DATA51,F8 
440 DrtTAFB,84 
450 DfUAA2,83 
468 DATAC6,23 
470 DrtTAE6,32 
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,EA,En,EA,EA,EA,A2,19,BD,3A,19 



IB 
EA 
EA 



,F8,ED,28,A6,19,68,20,n6,13,Bl 



91 
25 

8C 
,8 
51 
0C 
A9 
B5 



A9,3C,3D 



B0,1B,J)7 
En , En , E A 
EA,EA,28 



91,26,20 
85,21,A5 
E0, 88,1)8 



91,33,28 
A5,32,C3 
86,91,26 
29,18,15 
D0,8D,13,S5 
€A,D6,CF,63 



11, E3 



28,01 
En, En 
A6, 13 



BD,13 
29,35 
BE,E6 



1,68,EA,EA,EA,EA,EA,EA,28,A6 



BD 

83 
28 
49 
39 
nn 



,19 
B8 
BD 
FF 
35 
63 



A9,FF,CD,12, 



FE,D8,D6,29, 
EA,Eft,EA*EA, 
Bi, 26,03,86, 



F0,EB,28,A6, 
27, AS, 36, 35, 
27,E6,21,E6» 



F0,ED,28,A6. 
14,A9,8i,91, 
19,FB,D3,20, 
35, 37, 33, A5, 
22,A5,3n,35, 
A8.6B,* 



A9,34,3D, 
E8,F8,E6, 
,95,1F,CA 
27,80,E3, 
Efi,EA,EA, 
A9, 20,91, 
,20,C3,51 
19,68,A9, 
3A,60,E6, 
3A,D3,86, 
,19,B1,26 
19,68,28, 
26,D8,8E, 
AS, 19, 68, 
39,E5,37, 
23,38,82, 



11, E3 

4C,3B,C3, 

,D8,F3,60 

83,88,15, 

EA,EA,EA, 

28,08,94, 

,FB,86,A9 

88, An, A3, 

26,E6,20, 

A5,34,C5, 

,D8,86,A9 

AS, 19, 28, 

A5,32,C9, 

98,43, 3A, 

85,22,A5, 

E6,23,B1, 



An, 63, 23, 

,80,38,00 

88,00 

Eft,EA,EA, 

A9,51,91, 

,88,91.26 

85,28,35, 

E6,39,E3, 

21,FS,83, 

,20,91,39 

2F,ln,Bl, 

83,F8,83, 

48,A0,88, 

3A,35,23, 

22,C9,51, 



4C,3B,C3 
,15,88 

En, En 

2B,23 

,FB 

26,35 

E4 

A9,88 

,D8 

39 , C9 

C.9,82 

84,32 

B8,ll 

D8,82 



2. To input data in BASIC without returning to BASIC command mode 
on receipt of a null string then an input statement can be simulated 
by a GET loop which contains additional statements to cope with DEL 
codes. This has the additional advantage that if there is a displayed 
frame on screen the frame characters will not be accepted as part of 
the input . 

The attached listing shows the above routine. This starts at line 9000 
and to use it, instead of INPUT Ag you put GOSUB 9000:A3=INjS. 



8880 REM SUBROUTINE TO SIHULnTE NON-PET 

8018 REM STANDARD INPUT DOES NOT BREAK 

8020 REM "T INPUT" COULD BE ALSO BE 

8038 REM EA* 13 DEFINED IN LIHE 18 

9000 IN*="" :PRINT" ? ", 

9818 S0SUB98?8:PRINTZn!<ZB) ; : IF2$=""THEN9818 

9820 IFZ$=CHR$(i3)THENPRINT" ".RETURN 

9038 IFZ$=CHR*<28> THBWNSSN<LEN ( IN*) ) +1'3OTO901B,9068 

9048 PRINTZI, ■ IN$=IN*+2$.6OTO9810 

9060 PRINTZ*, :IN$=HID*(irU,l,LENUN*>-l> :<3OTO9018 

9878 2B=l + <ZB=i) : F0RZn=iT06B:'3ETZ$ . IFZSO"" THENRETURN 

9830 NEKT;RETURN 



STANDARD INPUT STATEhENT 
ON RECEIPT OF A NULL STRING 
SIMULATED EASILV 
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Programme Overlays on a PET - Supplied by Mike Stone 

1. The 8K core of a PET is not usually a limitation in the 
home computer and hobbyist world, nor even in an 
educational environment where students are just creating 
small exercise programs. With the devices now available 
for attachement - the second cassette, (the printer, and 
floppy discs shortly) - the PET becomes a valid and 
genuine data processing machine, and complex string 
handling programs with files may well run out of space. 

2. Programmers with experience on other computers know 
that one answer to this kind of problem is to break 
the program down into segments, so that only part of 
it is occupying memory at any time, and all or part 
is "overlaid" by other segments as required. When 

the program segments are on a disc, direct access features 
normally permit great flexibility, in that any required 
segment can be loaded; for tape only systems, the 
segments have to be arranged in order of need - e.g. job 
initialisation, main coding, and termination segments. 

J. Since PET's BASIC includes a LOAD instruction to acquire 
dynamically a new program from tape, and (provided the 
new program is no longer than the one issuing the LOAD) 
all data areas remain available to the loaded program, 
the basis exists for an overlay system. However, for 
true overlaying, it is essential that some of the 
original program (e.g. control of the program flow, 
common subroutines, etc.) be retained throughout, 
whatever new segments are loaded. PET does not do 
this automatically; this paper tells you how to do it. 



4. PET stores BASIC programs in location 1024- upwards. 

Note that the pointera, and line numbets, are pairs of 
bytes giving low/high. The high must be multiplied by 
256 and added to the low to give the actual quantity. 

5- Whenever a line of code is entered from the keyboard, 
PET moves every statement around as necessary and re- 
adjusts all the chaining, so that statements are always 
stored in strict sequence of line number. 

6. When your program contains a LOAD statement, this does 
NOT imply either CLE or NEW. The new program is simply 
loaded in at (and then executed from) location 1024, 
for as much space as it needs. The new program does 
NOT (as with some BASIC s) gust replace those statements 
with identical line numbers; it is strictly a new 
program in its own right. However, any program 
statements at the end of the LOA DING program whose 
space is not required by the LOADED program do remain 
unscathed by the LOAD. The problem is that the new 
program has no (forward-) chain into them, so PET 
knows nothing about them. 

7. It follows from the above that if we code the 

instructions-to-be-preserved with high line numbers; 
and if the space needed by the newly-loaded segment 
does not over-write them; and if we can force the new 
segment to chain into the old instructions; then 
we have a real overlay system. So, if during the 
original program you can find in memory the last 
statement not to be preserved, you know it forward 
chains into the next highest line number, i.e. the 
first of the statements you do want preserved. Then 
when the overlay arrives, you need only find its 
very last statement and replace its forward-chain by 
the one you previously found, and both new and old 
code form a contiguous program. 
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8. 



A very simple illustration follows 



Enter this program (do NOT put any spaces, except 
after line numbers) : 



10 


A=A+1 


20 


GOSUB50 


30 


LOAD"NEWPROG" 


50 


PRINTA*2 


55 


RETURN 



This is stored as follows ("PEEK" values) 



1024) 





5) 


11 


6) 


4 


7) 


10 


8) 





9) 


65 


1030) 


178 


1) 


65 


2) 


170 


3) 


49 



i forward chain? 4 x 256 = 1024 + 11 = 1035 



line number 10 



A 

+ 

1 



4) 





-* 5) 


19 


6) 


4 


7) 


20 


8) 





9) 


141 


1040) 


53 


1) 


48 


2) 





- 3) 


34 


4) 


4 


5) 


30 


6) 





7) 


147 


8) 


34 


9) 


78 


1050) 


69 


1) 


87 


2) 


80 


3) 


82 


4) 


79 


5) 


71 


6) 


34 


7) 





- 8) 


43 


9) 


4 


1060) 


50 


1) 





2) 


153 


3) 


65 


4) 


172 


5} 


50 


6) 





7) 


49 


8) 


4 


9) 


55 


1070) 





1) 


142 


2) 





- 3) 






forward chain; 4 x 256 = 1024 + 19 = 1043 
! line number 20 

; 

GOSUB 

5 



; forward chain; 4 x 256 = 1024 + 34 = 1058 
line number 30 



; 



LOAD 
n 

N 
E 
W 
P 
R 

G 



forward chain; 4 x 256 = 1024 + 43 = 1067 



1 

1 

1 


line number 


50 


PRINT 




A 




* 




2 




forward chain; 4 


x 256 




line number 
RETURN 


55 



1024 + 49 « 1073 



If we want lines 50 and 55 to be available to an overlay, 
the important information is the forward chain in line 30, 
i.e. locations 1043 and 1044. 

9. To see how it works, SAVE"PR0G" and leave the cassette 
Record and Play keys down. 

Enter NEW; then the following (again, no spaces) : 

5 A=A*2 

10 GOSUB50 

15 STOP 
LIST if you like, to confirm that there are no lines 
50 and 55. 
SAVE"NEWPROG" . 

Now rewind your tape, and press RUN. 
PROG will be loaded, will print "2", and continue up 
the tape. When NEWPROG has been loaded, you will get 
?UNDEF'D STATEMENT ERROR IN 10 

That is because the overlay looks like this: 



1024) 





5) 


11 


6) 


4 


7) 


5 


8) 





9) 


65 


1030) 


178 


1) 


65 


2) 


172 


3) 


50 


4) 





-> 5) 


19 


6) 


4 


7) 


10 


8) 





9) 


141 


1040) 


53 



forward chain to 1035 



line number 5 



A 
* 



forward chain to 1043 



line number 10 

GOSUB 
5 



7 



1) 


48 


2) 





3) 


25 


4) 


4 


5) 


15 


6) 





7) 


144 


8) 





9) 








forward chain to 104 9 

j line number 15 
STOP 



10. The last line, 15, does not chain into the old line 50. 
But that line 50 is still there, in location 1058 et seq. 
So, do this: 

POKE 1043,34 
POKE 1044, 4 

LIST - and behold, NEWPROG now includes lines 50 

and 55! 
You can RUN if you like, to prove it. 

What we have done is to use what we discovered about 
the first program (last sentence of paragraph 9) to 
modify the second program. 

11. How do you program all this to happen automatically? It 
is not at all difficult. Let us assume that the 
statements-to-be-preserved are at lines 5000 and upwards. 
So, just before that, code this (NO SPACES) ; 

4997 N1=PEEK(201) Get (low) address of line 4998 

4998 N2=PEEK(202) Get (high) address of line 4999 

4999 RETURN 

5000 .... .... 

(Locations 201, 202 always contain, during instruction 
execution, the address of the next instruction - 
strictly, the "0" between instructions.) 
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850 


GOSUB 4997 


860 


Nl = Nl + 14 


870 


N2 = N2 * 256 


880 


If Nl < 256 THEN 900 


890 


Nl = Nl - 256 


900 


BC = Nl + N2 + 1 



12. Now, just before your program wants to load in the 
overlay program, code this (spaces if you likel): 



Low address of 4999 (the length 
of 4998 is 14 bytes) 
Actual high address of 4999 
Adjust low for page boundary 

BC is now actual machine address 
of line 4999 

910 Zl = PEEK(BC) :Z2=PEEK(BC+1) Hold the forward-chain 

locations out of 4999 

920 LOAD "NEWPROG" 

13. As the first instructions of NEWPROG, the chain-adjusting 
must be done. The necessary code is very similar: 

At the end of NEWPROG, as the very last statements, 
code (NO spaces) : 

3997 N1=PEEK(201) 

3998 N2=PEEK(202) 

3999 RETURN 

And at the beginning code: 
10 GOSUB3997 
20 N1=N1+14 
30 N2=N2*256 
40 IF NK256 THEN 60 
50 Nl=Nl-256 
60 BC=N1+N2+1 BC is now actual machine 

address of 3999 
70 POKE BC,Z1:P0KE BC+1,Z2 

14. It is worth just reiterating that the total size of the 
incoming overlay (irrespective of line numbers; just its 
size in bytes occupied) must be less than the total 
size of the instructions being overlaid. 

Mike Stone 



ABBREVIATING BASIC WORDS 

As explained in the instruction manual, any BASIC word takes 
up 1 byte of memory storage space. It has been stated that 
the work "PRINT" can be abbreviated to "?" which saves time 
on entering programs. When listed, the word is expanded 
to its full form. Both forms take 1 byte per word. 

We now have information on how to abbreviate the complete 
list of BASIC words. The algorithm to remember is as follows; 

1. For any BASIC word, type in the first letter of the 
word (e.g. V for VERIFY). 

2. Hold down the 'Shift* key and type in the second letter. 
If you are in graphics mode, this will appear as a 
graphic character (e.g.Q for E) . It is a good idea 
to go into lower case mode as the two letters are then 
easy to read. (Poke 59468, 14 — » 12 for PET to graphics). 

In some cases, this two- letter method gives a possibility of 
more than one BASIC word (e.g. READ and RESTORE) . For one 
of the words (usually the longer) it will be necessary to 
type the first two letters and the shifted third. All these 
abbreviations are converted to full words upon the command 
LIST. 

Below is a complete list of the words and abbreviations: 
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BASIC ABBREV 



BASIC 



ABBREV 



BASIC 



ABBREV 



LET 


Le 


DEF 


De 


RUN 


Ru 


READ 


Re 


RETURN 


REt 


CLR 


CI 


PRINT 


p 


STOP 


St 


LIST 


Li 


PRINT# 


Pr 


STEP 


STe 


CONT 


Co 


DATA 


Da 


INPUT# 


In 


FRE 


Fr 


THEN 


Th 


SGN 


Sg 


TAB( 


Ta 


FOR 


Fo 


ABS 


Ab 


SPC( 


Sp 


NEXT 


Ne 


SQR 


Sq 


PEEK 


Pe 


DIM 


Di 


RND 


Rn 


POKE 


Po 


END 


. En 


SIN 


Si 


USR 


Us 


GOTO 


Go 


ATN 


At 


SYS 


Sy 


RESTORE 


REs 


EXP 


Ex 


WAIT 


Wa 


GET 


Ge 


AND 


An 


LEFT# 


LEf 


GOSUB 


GOs 


NOT 


No 


RIGHTS 


Ri 


OPEN 


Op 


VAL 


Va 


MIDS" 


Mi 


CLOSE 


CLO 


ASC 


As 


CHRg 


Ch 


SAVE 


Sa 


CMD 


Cm 


STR# 


STr 


LOAD 


Lo 


VERIFY 


Ve 







SIMULATING A CALCULATOR ON YOUR PET 

Many users have asked whether the PET can do live calculations, 
Although a simple sum such as 2 + 3 can be performed thus: 

PRINT 2+3 'RETURN' 
it would be more convenient if the operation of a calculator 
could be simulated directly. The following program should 
give you an idea of how this can be achieved: 
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1 


I" 


1 


r 


f 


r 


I 


r* 



5 REH GRAPHICS 

IB PRINTS 

26 PRINT" 

25 PRINT" 

36 PRINT" 

46 F0RI=tT0i3 

56 PRINT" 

66 TOT 

1868 REM CONTROLLER ,' INPUT 

1618 >3E Tft$ : IFA 1= " "607018 18 

1628 flsftSC<ft») 

1638 IFA>57THEN4eBB 

1648 IFAC48ANDA0467HEN2888 

1850 IF T=l 7HENX*="" -1=8 

1655 IFLEN<X*) = 3THEKD*s"ERR0R " :GOSUB5115'.T=l :G0TOi383* 

1868 XI=K*+A<:X=VAL<X« -.'30SUB5828 

1678 -30 TO 1888 

2688 REM OPERATORS 

2618 IFAC480Rfl=44 THEND*s"ERROR " :«0SUB5115 '• CLR :GOT01888 

£828 IF A=48THENN = NU • B <H > = X : K=0 : 7=8 : 0$<N) = 1 ■ 0$=" " : T = l : G03UB58B8 :>30 TO 1800 

2B38 IF0*="*"7HENX=K*V 

2648 IF *=' V" THE NK=V/H 

2858 IFO $ ="+"7HENX=X+V 

2868 I ? *= H ~" THE NX= V-H 

2665 'l=X:0f=ft'!:T = i 

2878 IFft=41TH£NY=B(H) -Qi=$$<.m :N=N-1:T=3 

2688 <MSUB5088:$©TO1838 

4088 \ffi$="S" THENX=SIN<X) 

4010 IF A $ ="€:" 7HE?iX=COS W i 

4033 If A £=*' T" THENX=TAN (X 5 

4038 IFAf="L"THENX=LOG<X) 

4648 If ft$="E" THENK=EKP<X) 

4842 IF A f ="="00 702838 

4843 If Af = u «-" THENCLR '• 1=1 
4645 '3OSUB508O 

4658 <30TOi88Q 

5B08 REM DISPLAY 

5618 HI=STRf<K) 

5028 D*sRIGHT*<" "+K$ ,11) *•" 

5638 IFXC=903333999ftNDK}.81SOTG5ii5 

5848 IFX=BGOT05ii5 

5858 IFABS<K>31E380RAB3(X)ClE-33THENDt= ,, ERR0R " :QOT05il5 

5188 RfsRIGHTK" "+XI.15J 

5118 Df=LEFT$(Rf ,11)+" B tRIGHT*<Rt ,3) - 

5115 PRINT' l l llll 111 1 "D$ /w^V,,^*. *, - 

5128 RETURN T ""■* <* C**ft& tk**» 12* 
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Although the program is by no means perfected, the framework 
exists for a versatile program. Lines 4000 onwards determine 
the functions so that when *S' is pressed the sine of the 
number on display is calculated and to clear all registers 
*«-' is pressed. The normal operation for +, -, x and 4- is 
the same as a straightforward calculator, and there are 
multiple sets of brackets. 

This idea could be used to simulate actual models - including 
programmable calculators, thus giving access to a wide 
range of ready-written low key software. We would like to 
hear from any user who succeeds in doing this. 



BITS AND PIECES 



Some more hints and tips to help you write efficient 
programs : 

When writing REMark statements, graphics and lower 
case can be included if they are put inside inverted 
comma's. This enables separating lines such as: 



10 REM "- 



When using subscripted variables such as A (4) the operating 

system automatically reserves 10 elements without having 

to declare a dimension with DIM. If, however, you are 

using a very long program and are using less than 

10 elements per variable - say 4 - it will save space 

to declare the dimension's length. For example: 

10 DIM A(4) , C£(3) 
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To display a number (N) to D decimal places, use the 
following routine: 

10 M = INT(N*10+D+0.5)/10+D 

20 PRINT M 



For an intriguing display of graphics, try running this 
one line program entitled "BURROW" 

1 A$= ,, 4^*^«:PRINTMID$(A$,RND(.5)*4+1,1)"*« ,, ;:FORT=1TO30: 
NEXT: PRINT "B-jrf-^ " ; :G0T01 



NSM PET MAETJAL : 

We are currently working on an extensive PET users manual, 
The manual will eventually be available for sale through 
our dealers. We do plan, however, offering the manual 
in chapters through future issues of the "Transactor". 
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